home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 2 / CD Loisirs 02 / CD Loisirs CD 002.mdf / pc / nympheas / sources / s408_011mome.k < prev    next >
Encoding:
Text File  |  1994-01-01  |  2.2 KB  |  161 lines
  1. object S408_011MOME is MEDIADISTRIBUTOR
  2. has
  3.     
  4.     Finished()
  5.         do
  6.             --
  7.         end;
  8.     
  9. with
  10.     Duration is -1;
  11.     X is 0; Y is 0; Width is 640; Height is 480;
  12.     Items is [
  13.         S408A1_BOUTON_MUSIQUE,
  14.         S408A2_BOUTON_TEXTE,
  15.         S408A3_BOUTON_OEUVRE,
  16.         S408A4_BOUTON_STOP,
  17.         S408A6_ALBUM_SUITE,
  18.         S408A7_S10A_WAV,
  19.         S408A8_011_PIC
  20.     ];
  21. end;
  22.  
  23. object S408A1_BOUTON_MUSIQUE is MEDIADELEGATOR
  24. has
  25.     
  26.     OffScreen()
  27.         do
  28.             self.Show(true);
  29.             self.Enable(true);
  30.         end;
  31.     
  32.     MouseUp(theX, theY)
  33.         do
  34.             APPLICATION.GoTo(S498_ECRAN_FIN);
  35.         end;
  36.     
  37. with
  38.     Duration is -1;
  39.     X is 245; Y is 206; Width is 47; Height is 47;
  40. end;
  41.  
  42. object S408A2_BOUTON_TEXTE is MEDIADELEGATOR
  43. has
  44.     
  45.     OffScreen()
  46.         do
  47.             self.Enable(true);
  48.             self.Show(true);
  49.         end;
  50.     
  51.     MouseUp(theX, theY)
  52.         do
  53.             APPLICATION.GoTo(S498_ECRAN_FIN);
  54.         end;
  55.     
  56. with
  57.     Duration is -1;
  58.     X is 244; Y is 262; Width is 49; Height is 48;
  59. end;
  60.  
  61. object S408A3_BOUTON_OEUVRE is MEDIADELEGATOR
  62. has
  63.     
  64.     OffScreen()
  65.         do
  66.             self.Enable(true);
  67.             self.Show(true);
  68.         end;
  69.     
  70.     MouseUp(theX, theY)
  71.         do
  72.             APPLICATION.GoTo(S498_ECRAN_FIN);
  73.         end;
  74.     
  75. with
  76.     Duration is -1;
  77.     X is 245; Y is 321; Width is 47; Height is 47;
  78. end;
  79.  
  80. object S408A4_BOUTON_STOP is MEDIADELEGATOR
  81. has
  82.     
  83.     OffScreen()
  84.         do
  85.             self.Enable(true);
  86.             self.Show(true);
  87.         end;
  88.     
  89.     MouseUp(theX, theY)
  90.         do
  91.             APPLICATION.GoBack(MEDIADISTRIBUTOR0);
  92.         end;
  93.     
  94. with
  95.     Duration is -1;
  96.     X is 539; Y is 433; Width is 90; Height is 36;
  97. end;
  98.  
  99. object S408A6_ALBUM_SUITE is MEDIADELEGATOR
  100. has
  101.     
  102.     OffScreen()
  103.         do
  104.             self.Enable(true);
  105.             self.Show(true);
  106.         end;
  107.     
  108.     MouseUp(theX, theY)
  109.         do
  110.             APPLICATION.GoTo(S6_006TABL);
  111.         end;
  112.     
  113. with
  114.     Duration is -1;
  115.     X is 539; Y is 394; Width is 88; Height is 27;
  116. end;
  117.  
  118. object S408A7_S10A_WAV is MEDIADELEGATOR
  119. has
  120.     
  121.     OffScreen()
  122.         do
  123.             self.Enable(true);
  124.             self.Show(true);
  125.             self.Run(false);
  126.         end;
  127.     
  128. with
  129.     Target is C322_S10A_WAV;
  130.     Duration is 0;
  131.     X is 49; Y is 220; Width is 32; Height is 24;
  132. end;
  133.  
  134. object S408A8_011_PIC is MEDIADELEGATOR
  135. has
  136.     
  137.     OffScreen()
  138.         do
  139.             self.GoToBeginning();
  140.             self.Run(true);
  141.             TRANSITION.Set(WipeTop, 300);
  142.             self.Show(true);
  143.         end;
  144.     
  145.     OnScreen()
  146.         do
  147.             S408A7_S10A_WAV.Run(true);
  148.         end;
  149.     
  150.     Finished()
  151.         do
  152.             APPLICATION.GoTo(S498_ECRAN_FIN);
  153.         end;
  154.     
  155. with
  156.     Target is C298_011_PIC;
  157.     Duration is 1200;
  158.     X is 0; Y is 0; Width is 640; Height is 480;
  159. end;
  160.  
  161.